Top 10k strings from Hangman (19xx)(-)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   2 x$=z$(pw+1
   2 sub=sub+100
   2 ;nl;"letters"
   2 ;"HANGMAN"
   2 *(y$>"`"))
   1 z$(pw)+pw);",";
   1 x$(i)=y$(1
   1 p19=p14-p15
   1 p14=p13-p12:
   1 p13=p8-p11-p12
   1 p10,p13,p12
   1 hangman   
   1 ez=ez+nl+1
   1 ;"the word is"
   1 ;"points":
   1 ;"ZX Spectrum guesses a word"
   1 ;"YSave vocabulary";
   1 ;"Well done":
   1 ;"Well done"
   1 ;"Save vocabulary"
   1 ;"SLoad vocabulary";
   1 ;"Load vocabulary"
   1 ;"LHalt hangman";
   1 ;"Increase vocabulary"
   1 ;"IZX Spectrum guesses a word";
   1 ;"GYou guess a word";
   1 ;"Does the word contain";x$;"?"
   1 ;"Bad luck";
   1 ;"Bad luck":
   1 ;"        ";
   1 ,,,,"Increase vocabulry";
   1 ,,"No room left":
   1 ,,"Hangman halted"
   1 ,,"Enter name"
   1 ,,"Current vocabulary is :"
   1 *(y$="Z")+1900
   1 *(y$="Y")+1400
   1 *(y$="S")+2400
   1 *(y$="L")+2900
   1 *(y$="I")+900
   1 *(x$(i)>"`")):
   1 *(x$(i)>"`"))
   1 "What is the word?";x$
   1 "Rewind tape - press""ENTER""";x$
   1 "RED","BLUE","GREEN","ORANGE","WHITE","PINK","END"
   1 "Press ""ENTER"" to continue";y$
   1 "How many letters?";nl
   1 "Enter position of letter";i:
   1 "Enter no of times it appears";n
   1 "Enter name ";y$
   1 "Enter a word-blank to finish";x$
   1 "Enter a letter";y$